home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.1 / Installer-Files / DirectTeX / DirectTeX.rsrc / PSHD_128_TeXDict < prev    next >
Encoding:
Text File  |  1995-03-27  |  9.3 KB  |  139 lines
  1. %%Title: (TeX dictionary for MacDVI)
  2. %%Version: 2.0
  3. %%CreationDate: (12/08/93) (12:00)
  4. %%Copyright: ((c) 1991-95 by Wilfried Ricken. All rights reserved)
  5. userdict begin /start-hook{}def /end-hook{}def /bop-hook{}def /eop-hook{
  6. }def end userdict /TeXDict 250 dict dup begin put /initialize{userdict
  7. /start-hook get exec}def /terminate{userdict /end-hook get exec}def /N{
  8. def}def /B{bind def}N /S{exch}N /X{S N}B /TR{translate}N /rst{/rulex 0 N
  9. /ruley 0 N /delta 0 N 0 0 a}N /@rigin{userdict /md known{userdict /md
  10. get type /dicttype eq}{false}ifelse{}{LandScape{[0 1 -1 0 0 0]concat}if
  11. 72 Resolution div 72 VResolution div neg scale Resolution VResolution
  12. VPaperSize neg add TR matrix currentmatrix dup dup 4 get round 4 exch
  13. put dup dup 5 get round 5 exch put dup 0 get dup round sub abs 0.0000001
  14. lt{dup dup 0 get round 0 exch put}if dup 1 get dup round sub abs
  15. 0.0000001 lt{dup dup 1 get round 1 exch put}if dup 2 get dup round sub
  16. abs 0.0000001 lt{dup dup 2 get round 2 exch put}if dup 3 get dup round
  17. sub abs 0.0000001 lt{dup dup 3 get round 3 exch put}if setmatrix}ifelse}
  18. N /@start{/LandScape X /VResolution X /Resolution X VResolution mul 72
  19. div /VPaperSize X Resolution mul 72 div /PaperSize X 1000 div /DVImag X
  20. /IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for}N
  21. /bos{/SS save N}B /eos{SS restore}B /bop{userdict /bop-hook get exec /SI
  22. save N @rigin /V matrix currentmatrix dup 1 get dup mul exch 0 get dup
  23. mul add .99 lt{/QV}{/RV}ifelse load def}N /eop{SI restore showpage
  24. userdict /eop-hook get exec}N /RMat[1 0 0 -1 0 0]N /BDot 260 string N /v
  25. {/ruley X /rulex X V}B /V{}B /RV{gsave TR -.1 -.1 TR rulex ruley scale 1
  26. 1 false RMat{BDot}imagemask grestore}B /QV{gsave transform round exch
  27. round exch itransform moveto rulex 0 rlineto 0 ruley neg rlineto rulex
  28. neg 0 rlineto fill grestore}B /p{show}N /a{moveto}B /tail{dup /delta X 0
  29. rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}B /d{-3 M}B /e{
  30. -2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{4 M}B /w{0
  31. rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{p 1 w}B /r{
  32. p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p a}B
  33. /@newfont{/maxchcode exch def /fontid exch def fontid 7 dict def fontid
  34. load begin /FontType 3 def /FontMatrix[1 0 0 -1 0 0]def /FontBBox[0 0 1
  35. 1]def /BitMaps maxchcode 1 add array def /BuildChar{CharBuilder}def
  36. /Encoding maxchcode 1 add array def 0 1 maxchcode{Encoding exch /.notdef
  37. put}for end fontid fontid load definefont pop}B /ch-image{ch-data 0 get}
  38. B /ch-width{ch-data 1 get}B /ch-height{ch-data 2 get}B /ch-xoff{ch-data
  39. 3 get}B /ch-yoff{ch-data 4 get}B /ch-advw{ch-data 5 get}B /CharBuilder{
  40. /ch-code exch def /font-dict exch def /ch-data font-dict /BitMaps get
  41. ch-code get def ch-advw 0 ch-xoff neg ch-height ch-yoff sub 1 sub neg
  42. ch-width ch-xoff sub 1 sub ch-yoff setcachedevice ch-width ch-height
  43. true[1 0 0 -1 ch-xoff ch-yoff]{ch-image}imagemask}B /@sf{setfont}B /@dc{
  44. /ch-code exch def /ch-data exch def currentfont /BitMaps get ch-code
  45. ch-data put currentfont /Encoding get ch-code dup(   )cvs cvn put}B /rf{
  46. findfont dup length 1 add dict begin{1 index /FID ne 2 index /UniqueID
  47. ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll exec 0 exch 5 -1
  48. roll VResolution Resolution div mul neg 0 0]/Metrics exch def dict begin
  49. Encoding{exch dup type /integertype ne{pop pop 1 sub dup 0 le{pop}{[}
  50. ifelse}{FontMatrix 0 get div Metrics 0 get div def}ifelse}forall Metrics
  51. /Metrics currentdict end def[2 index currentdict end definefont 3 -1
  52. roll makefont /setfont load]cvx def}def /ObliqueSlant{dup sin S cos div
  53. neg}B /SlantFont{4 index mul add}def /ExtendFont{3 -1 roll mul exch}def
  54. /ReEncodeFont{/Encoding exch def}def userdict /SDict 200 dict dup begin
  55. put /@SpecialDefaults{/hs 612 N /vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc
  56. 1 N /ang 0 N /CLIP 0 N /rwiSeen false N /rhiSeen false N /letter{}N
  57. /note{}N /a4{}N /legal{}N}B /@scaleunit 100 N /@hscale{@scaleunit div
  58. /hsc X}B /@vscale{@scaleunit div /vsc X}B /@hsize{/hs X /CLIP 1 N}B
  59. /@vsize{/vs X /CLIP 1 N}B /@clip{/CLIP 2 N}B /@hoffset{/ho X}B /@voffset
  60. {/vo X}B /@angle{/ang X}B /@rwi{10 div /rwi X /rwiSeen true N}B /@rhi{
  61. 10 div /rhi X /rhiSeen true N}B /@llx{/llx X}B /@lly{/lly X}B /@urx{
  62. /urx X}B /@ury{/ury X}B /magscale true def end /@MacSetUp{userdict /md
  63. known{userdict /md get type /dicttype eq{userdict begin md length 10 add
  64. md maxlength ge{/md md dup length 20 add dict copy def}if end md begin
  65. /letter{}N /note{}N /legal{}N /od{txpose 1 0 mtx defaultmatrix
  66. dtransform S atan/pa X newpath clippath mark{transform{itransform moveto
  67. }}{transform{itransform lineto}}{6 -2 roll transform 6 -2 roll transform
  68. 6 -2 roll transform{itransform 6 2 roll itransform 6 2 roll itransform 6
  69. 2 roll curveto}}{{closepath}}pathforall newpath counttomark array astore
  70. /gc xdf pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{
  71. PaintBlack}if}N /txpose{pxs pys scale ppr aload pop por{noflips{pop S
  72. neg S TR pop 1 -1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1
  73. -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
  74. TR}if xflip yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1
  75. get neg sub neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg
  76. TR}if}{noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR
  77. pop pop 90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get
  78. ppr 0 get neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr
  79. 3 get ppr 1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270
  80. rotate ppr 2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr
  81. aload pop 4 -1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale
  82. neg S neg S TR}if}N /cp{pop pop showpage pm restore}N end}if}if}N
  83. /normalscale{Resolution 72 div VResolution 72 div neg scale magscale{
  84. DVImag dup scale}if 0 setgray}N /psfts{S 65781.76 div N}N /startTexFig{
  85. /psf$SavedState save N userdict maxlength dict begin /magscale false def
  86. normalscale currentpoint TR /psf$ury psfts /psf$urx psfts /psf$lly psfts
  87. /psf$llx psfts /psf$y psfts /psf$x psfts currentpoint /psf$cy X /psf$cx
  88. X /psf$sx psf$x psf$urx psf$llx sub div N /psf$sy psf$y psf$ury psf$lly
  89. sub div N psf$sx psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy
  90. psf$sy div psf$ury sub TR /showpage{}N /erasepage{}N /copypage{}N /p 3
  91. def @MacSetUp}N /doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2
  92. roll newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
  93. closepath clip newpath moveto}N /endTexFig{end psf$SavedState restore}N
  94. /@beginspecial{SDict begin /SpecialSave save N gsave normalscale
  95. currentpoint TR @SpecialDefaults count /ocount X /dcount countdictstack
  96. N}N /@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto
  97. hs neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
  98. rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
  99. scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
  100. lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
  101. ury lineto llx ury lineto closepath clip}if /showpage{}N /erasepage{}N
  102. /copypage{}N newpath}N /@endspecial{count ocount sub{pop}repeat
  103. countdictstack dcount sub{end}repeat grestore SpecialSave restore end}N
  104. /@defspecial{SDict begin}N /@fedspecial{end}B /li{lineto}B /rl{rlineto}
  105. B /rc{rcurveto}B /np{/SaveX currentpoint /SaveY X N 1 setlinecap newpath
  106. }N /st{stroke SaveX SaveY moveto}N /fil{fill SaveX SaveY moveto}N
  107. /ellipse{/endangle X /startangle X /yrad X /xrad X /savematrix matrix
  108. currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
  109. savematrix setmatrix}N /ECEncoding[/grave /acute /circumflex /tilde
  110. /dieresis /hungarumlaut /ring /caron /breve /macron /dotaccent /cedilla
  111. /ogonek /quotesinglbase /guilsinglleft /guilsinglright /quotedblleft
  112. /quotedblright /quotedblbase /guillemotleft /guillemotright /endash
  113. /emdash /cwm /zeroinferior /dotlessi /dotlessj /ff /fi /fl /ffi /ffl
  114. /visualspace /exclam /quotedbl /numbersign /dollar /percent /ampersand
  115. /quoteright /parenleft /parenright /asterisk /plus /comma /hyphen
  116. /period /slash /zero /one /two /three /four /five /six /seven /eight
  117. /nine /colon /semicolon /less /equal /greater /question /at /A /B /C /D
  118. /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z
  119. /bracketleft /backslash /bracketright /asciicircum /underscore
  120. /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t
  121. /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /hyphen
  122. /Abreve /Aogonek /Cacute /Ccaron /Dcaron /Ecaron /Eogonek /Gbreve
  123. /Lacute /Lcaron /Lslash /Nacute /Ncaron /Ng /Ohungarumlaut /Racute
  124. /Rcaron /Sacute /Scaron /Scedilla /Tcaron /Tcedilla /Uhungarumlaut
  125. /Uring /Ydieresis /Zacute /Zcaron /Zdotaccent /IJ /Idotaccent /dbar
  126. /section /abreve /aogonek /cacute /ccaron /dcaron /ecaron /eogonek
  127. /gbreve /lacute /lcaron /lslash /nacute /ncaron /ng /ohungarumlaut
  128. /racute /rcaron /sacute /scaron /scedilla /tquoteright /tcedilla
  129. /uhungarumlaut /uring /ldot /zacute /zcaron /zdotaccent /ij /exclamdown
  130. /questiondown /sterling /Agrave /Aacute /Acircumflex /Atilde /Adieresis
  131. /Aring /AE /Ccedilla /Egrave /Eacute /Ecircumflex /Edieresis /Igrave
  132. /Iacute /Icircumflex /Idieresis /Eth /Ntilde /Ograve /Oacute
  133. /Ocircumflex /Otilde /Odieresis /OE /Oslash /Ugrave /Uacute /Ucircumflex
  134. /Udieresis /Yacute /Thorn /Germandbls /agrave /aacute /acircumflex
  135. /atilde /adieresis /aring /ae /ccedilla /egrave /eacute /ecircumflex
  136. /edieresis /igrave /iacute /icircumflex /idieresis /eth /ntilde /ograve
  137. /oacute /ocircumflex /otilde /odieresis /oe /oslash /ugrave /uacute
  138. /ucircumflex /udieresis /yacute /thorn /germandbls]def end
  139.